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title mac$link Link directive processor 
-ident ‘V04-000' 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED 
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** 

is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
i ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR Au¥ OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
1s OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE 1S° HEREBY 
:# TRANSFERRED. 

** 

:*@ THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
:® CORPORATION. 
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Facility: 
VAX-11 Macro Assembler 

Abstract: 
This module contains the routines required to handle the .LINK 
assembler directive. The nature of this directive is to allow 


the user to spec ity Linker options within the object module 
produced by the assembler. 
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Environment: 
Native Mode, User Mode 

5 Author: 
4 Michael T. Rhodes, Creation Date: April, 1983 | 
99 Modified By: | 
00 V03-001 MTROO36 Michael T. Rhodes 16-Aug= -1983 | 
00 Add abbreviated quel | iter name synonyms and adju 
00 table dispatch address to accomodate the LNKSC_SHR object 
00 record type. 
00 
00 -- 
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-sbttl declarations 


; 
; Macros: 


gnacasodes 
$mac_c ih def 
$mac_objcoddef 
$Smac_symblkdef 


; Equated Symbols: 


ink blk siz = “x13 

ink-qiinclst = “X4 

ink pobytes = *xC 
lis 


Lnk— ates = “x10 


+ Linker option records List head. 
mac$gq_lnkopt:: 
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Define Macro-32's messages. 

Define the control flags. 

Define the object code. 

Define the symbol block offsets etc.. 


Carriage return token. 

Size of the fixed tee of the Linker op 
Offset to include list address. 

Offset to #bytes required for include List 
Offset to Link directive state flags. 


-psect mac$rw_data, noexe, rd, wrt 


00000000' address mac$gq_lnkopt 
00000000" address mac$gq_(nkopt 
0000 -psect mac$ro_data, noexe, nowrt, gbl, long 
: Linker qualifier options table. 

00000000 insymp = 0 
$mac_insert_syx SH, Lnk$c_sha 
$mac_insert_syx SE, Lnk$c_ob 
$mac_insert_syx I, Lnk$c_ol 
$mac_insert_syx L, ink$c_olb 
$Smac_insert_syx SHAREABLE, Lnk$c_sha 
$Smac_insert_syx SELECTIVE_SEARCH, Lnk$c_ob 
$Smac_insert_syx INCLUDE, ink$c_ol r 
$Smac_insert_syx LIBRARY, ink$c_olb, ink qualifiers 
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9 : -sbttl .link -=- process the .link directive 


Functional Description: 


This routine is called to process the .LINK directive. 
The valid syntax for this directive is as follows: 


-LINK ‘“‘filespec’’C/qualifierL=module or (module list)JJ,... 


The filespec within the delimiters is scanned (built into a 

-ASCID string), then we scan looking for a .LINK directive qualifier. 

If none are present, the default Linker option record type regardless 
of Ene rs ped ta specified in the filespec) is OBJECT (which includes 

symbol tables). 


Implicit Inputs: 


mac$ab_tmpbuf adr The address of the assembler's temporary buffer 
used to accumulate the delimited file specification. 


macS$ab_tmpsym adr The address of the assembler's temporary buffer 
used to accumulate the qualifier name(s) and 
module name(s) specified in an include ‘ist. 


mac$gq_lnkopt adr The address of the head of the Linker options 
records queue. 


Implicit Outputs: 


Linker option record(s) are placed into an ordered queue 
(mac$gq_\lnkopt) where the order is preserved FIFO. This is done 

to remain compatible with the LINKER's normal processing of option 
records (as if they were speicified in a normal Linker options file). 
The List is subsequently written to the object file during pass 2, 
following the object module header information. 


SSNS SSS 
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Special Case(s): 


Specie processing is performed when the /INCLUDE quetttiee is specified. 
The object module names contained in the include List are constructed as 
-ASCIC strings following the filespec. The record is terminated by a 
module name string with a zero length. 


If both the /LIBRARY and /INCLUDE qualifiers are specified for the 

same library filespec, then the Linker option record type is defaulted 
to LNKSC_OLI and a special flag bit is set to indicate that the Library 
may be searched (LNKSV_LIBSRCH). 


Side Effects: 


Two possible side effects can occur. The first is a recoverable syntax 
error where a diagnotic is issued to inform the user of the problem and 
the as opty of the current input file gont inugs. The second is an 
insufficient virtual menory error in which a diagnotic is issued to the 
user and the assembly of the current input file is aborted. 
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7D «6157 ¢ Stack Usage: 
70 135 3 ° 
7D «36159; 31 16 8 0 
43 199 § “See permease ewes | eeecoeececoe ; 
: ! ags ! Lnktyp! rectyp! 
07D 1 6¢ 3 eneomsasan Erccsdemnant amie 
7D «6165; ! module name include List flink! 
7D 164 : -werwnrescr eee s eee se nee eo es ee eee own ee + 
007D 165 ; ! module name include list blink! 
Ba5p 198 rc. pease sass eee se se names ane sane seees + 
07D 167; ! #bytes req for inclst ! 
g70 198 ; ¢owoceseacnscoee eeneee Tee ow ee me oY 
7D) 3«=69169 ; ! Link directive states ! 
070 170: inrienaineenmanenennnmnnniniees + 
07D 171 ;-- 
07D 16 
00000000 17 -psect mac$ro_code_p1, nowrt, gbl., long 
0000 174 
44 175 Link:: : Directive = klink 
0100 8F BB 0000 176 pushr #*m<r8> ; Save registers. 
58 Q0000000'GF 9& 0004 £4177 movab g.nacSeb, tapbul re ; Address of temporary buffer. 
0000'C8 08 As 9E 0008 178 movab (r8) ,dsc$a_pointer(r8) ; Address of buffer to accumalate file name. 
SE FO AE 9E€ 0011 179 movab =-Lnk (_statés(sp), sp ; Allocate STACK LOCAL storage. 
AE D4 0015 180 clrl ink_T_States(sp ; Initialize state flags. 
0018 181 
oai8 139 3 
on ig 137 3; Perform initialization...then get the [next] file name. 
dD4 0018 185 108: clrl jsp) 3; Reset Linker record type and flags. 
OC AE D4 OOIA 186 clrl ink_l bytes (sp) ; Reset the include list byte count. 
04 AE 04 AE Q9E O01D 187 movab nk_q_inclst (sp), lnk q_inclst (sp) ; Reset the queue List 
08 AE 04 AE 9E One 188 movab = Lnk g_'nelss 3p). inkg_inc lates (sp) ; head to empty condition. 
6— 06 90 Bs 189 movb #obj$c_ink,lnk$b_rectyp(Sp) ; Set the record type field. 
DD QO2A 190 pushl Fr8 ; Push address of descriptor/buffer. 
OOOOOOC3S"EF 01 FB Q0 $ 191 calls #1, get_file_name 3; Get the Cnext] file name (if ony) - 
50 E€8 00 135 blbs rd, 3 We got one...go check for qualifier(s). 
67 10 AE 09 0 0036 19 bbs #0,lnk_l_states(sp),70$ ; Have we processed at least one file? 
007 1 Oo ee 194 brw 90§ ; No, unterminated macro argument error. 
O3E 195 
3 136 3 
4 4 4 3; The file name has been accumulated, check for qualifiers. 
68 3 $3 199 208: tstw (r8) : Null file specification? 
6F 1 8 0 eql 80$ : Yes, dvrect ive grates error. 
Q0000000'GF 16 4 1 sb g*mac$getchr :; Skip over delimiter. 
00000000'GF 16 Be ¢ sb g*mac$skipsp ; Skip spaces 
2F 6A OQ 4E 0 cmpb r10,#*A''/ 3; Was the character a slash? 
7. > os p24 04 beql 25$ ; Yes, process the qualifier(s). 
2c SA 91 53 05 cmpb r10,#*a","' 3; No, was it a comma (valid syntax)? 
1A 13 8228 06 beql 30$ : Yes, use defaults. 
20 SA 91 5 07 cmpb r10,#*a''="" : Is the Line continued? 
oe 58 8 beql 30$ : Yes, finish current spec before continuing 
0D SA 91 5D 0 cmpb ri0,a@cr 3; Have we reached the end of the input Line? 
10 13 6 19 beql aos ; Yes, normal terminator. 
46 «11 6 1 brb 0$ : No, syptex error. 
5E DD 6 \¢ 25$ pushl sp ; Push the address of the Link vector. 
00000106"EF O01 FB 66 1 calls #1, process_qual ; Process the qualifier(s). 
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06 8 14 bles r0, 40$ 3; Use the option recor e scanned. 
38 ij ? brb 808 ; Syntax errer in rh tt 4 be 
7? 3 
4 ; Build the Linker option record. 
01 AE 03 90 7 $0$: movb #lnk$c_obj,lnk$b_lnktyp(sp) ; Default option record type. 
3 bp , 40$: push i ” ; Bui td ait inker record using’ the 
U r s e an ags scanned above 
00000299'EF 0 FB to falls #2, build_lnk_rec 3 (Note: State flags are affected). 
1 3 
8 ! 3; What's our next move...? 
ce 6; CFT § 1 : cmpb r10, #*a"," 3; Is the current character a comma? 
08 13 0084 beql 5 ; Yes, go process the next List item. 
2D SA 91 0086 cmpb r10, #*A''-"" : Is the Line continued? 
12 is 089 bneq 60$ 3; No, check for eol. 
5A OD 9 bbe movb #cr, 10 ; Yes, continue processing the directive. 
OO0000000'GF 16 OO8E 50$: sb g*mac$getchr 3; Skip current character. 
Q00000000'GF 16 0094 sb ¥,2ecSek tese 3; Skip spaces, tabs, etc.. 
FF7B 31 OO9A rw 0$ 3 Continue 
0D A 91 00 r10,@cr 3; Have we reached the end of the Line? 
08 12 OOA0 bneq 80$ ; No, report syntax error. 


: We're done, clean up and return to the parser. 
70S: addl gank.[ states, sp ; Restore the stack. 


popr #*m<r ; Restore registers. 
rs ; Return to parser to continue. 


: Some type of syntax error has been encountered... 


Bos: $mac_err dirsynx 3; A directive syntax error has been 
brb 100$ ; encountered, issue error and return. 
90$: $mac_err untermarg ; A terminator has not been seen for 
; the file name. 
100$: addl #lnk_l states, sp ; Restore the stack. 
popr #*m<ras ; Restore current token. 
jmp g*mac$errorpt ; Issue error message and return. 
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get_file_name accumulate file name “-SEP-19 MACRO.SRCJLINK.MAR; 1 (2) 
-sbttl get_file_name accumulate file name 


Functional Description: 
This routine scans the input record for a delimitted file name. 


Inputs: 
4(AP) = adr The address of a descriptor which points to a buffer 
to store the file name which we will scan. 
Outputs: 
4(AP) = =adr The des 


criptor has been updated to reflect the size 
of the file name which has been accumulated. 
Routine Value: 


True A file name has been scanned. 
False No file name has been found (end of Line or unterminated arg). 


Side Effects: 


If there is no file name available (eg; we hit the end of the Line) 
the sengty field of the descriptor will be zero upon exit or if the 
argument is unterminated, the length will be non-zero but the routine 
value wili be false. 
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0044 entry get_file_name “m<r2,r6> ; Save registers upon entry. 
51 OD pushl fi 3; Preserve Ri. 
51 04 AC 00 movl aap? ri ; Get descriptor address. 
61 D4 clrl (r1 :; Initialize length, class, and type fields. 
52 0000°C1 00 movl dsc$a_pointer(r1), r2 ; Get the buffer address. 
50 04 clrl rd ; Assume the worst... 
00000000'GF 16 jsb g“mac$skipsp ; Find the delimiter. 
OD SA 91 cmpb r10,#cr 3; Have we reached the end of the Line? 
20.0 «(13 D beql 30$ ; Yes, return FALSE to the caller. 
56 SA 90 D movb ri0,r6 3; No, copy the delimiter and pass semi 
68 01 C8 : bisl2 #flg$m_allchr,(r11) : colons (to allow a version number). 
00000000'GF 16 E 10$: jsb g*mac$getchr ; Get the next character of the filename. 
56 SA 91 E cmpb r10,r6 ; Is it the delimiter (end of filename)? 
oC 13 E beql 208 : Yes, we're done here, return. 
0D A 91 F cmpb r10,@cr ; No, is it the end of the Line? 
OA 13 F beql 30$ 3; Yes, upon return issue unterminated argume 
82 SA 90 F5 movb r10,(r2)+ 3; No, store the character. 
61 B86 F8 incw (r1§ ; Eeep track of file name Length. 
e9 =«171 ae brb 10$ ; Gather the rest of the file name. 
50 4 DO OOFC gps: movl #1, r0 3; Success... 
1 8EDO OOFF O$: port r| ; Restore Ri. 3 
68 O01 CA OQ! g icl2 #flg$m_allchr,(r11) 3; Don't pass anymore semi-colons... 
04 ! i ret 
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-sbttl process_qual process Link directive qualifiers 


+ 
+ 


Functional Description: 
This routine processes the .LINK directive qualifiers. 


Inputs: 
4(AP) adr Address of a linker record vector. 
Outputs: 
4(AP) = adr The Linker record information is set in the vector. 


Routine Value: 


True Qualifiers have been processed without a problem. 
False There was a syntax error in either the qualifier name or in 
the item List associated with the qualifier. 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Fe Se Ge Ge Se Ge Ge te 


01 sentry process_qual “m<r5,r6,r7,r8> 3; Save registers. 
SE F8 AE movab <-8(sp), sp : Get STACK LOCAL storage. 
6E clrl sp 3; Initialize done bit. 
57 04 AC mov 4(ap), r7 : Get base adr of Link info vector. 
04 A7 movab lnk_q_inclst (r7), r8 ; Base address of file name List hea 
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E0 
9E 
D4 
DO 
9E 
cs MA CUP 10$: cmpb r10, #*A/,/ 3; Did we stop on a comma? 
OD 13 beql 30$ 3; Yes, we're done with this file spe 
Ob SA 91 cmpb r10, #cr ; No, have we reached eol? 
08 13 beql 30% aii ; Yes, we're done, return. 
2F SA OQ cmpb r10, #*A''/ ; Is the current character slash? 
06 13 beql 40$ : Yes, scan qualifier name. 
O0A9 Hh 0$: brw 110$ 3; No, syntax error. 
00A1 1 0$: brw 100$ 3; Done, return success. 
QO000000'GF 16 40$: sb g*mac$getchr ; Yes, skip over it... 
00000000'GF 16 sb g*mac$symscnup ; Get the qualifier name. 
£6 50 34 Lbc rd, ; None found, error. 
55 00000074'EF E movab Ink_qualifiers, r5 ; Use Linker qualifier name table. 
00000000'GF 16 sb g*mac$src_Llist ; Look up Linker option qualifier. 
DB 50 =SsiED Lbc rd, ; Not found, error. 
00000000'°GF 16 4 jsb g*mac$skipsp ; Position character pointer as need 
9 3; Dispatch to appropriate processing routine. 
04 OO 05 Al cf Q casel sym$l_val(r1), #0, Al nkSe monrectyp 
00c’ 50$: -word 608-208 ; Lnk$c_olb - /LIBRARY 
Sa ? -word be- eps ; Unk$c_shr - (unsupported) 
O3A' 9 -word 80$-50$ 3 Unk$c_oli - /INCLUDE= 
bose B word a $ 3 ink$c_obj - /SELECTIVE_SEARCH 
00 D word 70$-50$ : ink$c_sha - /SHAREABLE 
64 1 f rb 95$ ; Default, OBJ or STB 
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161 74 ; 
191 6 3 /LIBRARY Normal object library 
01 A? = —95)——(0161 58 60s: tstb ink$b_lnktyp (r7) ; Check for conflicting qualifiers. 
06 13 0164 78 beql 63$ : None specified. 
02 O01 A7 91 0166 79 cmpb Lnk$b_lnktyp (r7), Mlnk$c_oli ; If /INCLUDE was specified, no conf 
65 {5 16A + bneq 110$ ; but anything else ott, conflict. 
01 A7 00 9 1¢¢ 1 63$ movb #ink$c_olb, Lnk$b_lnktyp (r7) ; Lnk$c_olb = Normal object library. 
00 6€ 00 €E2 0Q1 Hf bbss #0, (sp), .+1 3; Indicate /LIBRARY has been specifi 
08 oF 01 + 174 8 bbc #1, (sp) : If /INCLUDE has been specified, th 
02 A 02 8 0178 84 bisb #Lnk$m_Libsrch, Lnk$w flags (r7); the Library should be searched and 8F 
01 A? 9 39 gi? § movb #lnk$c_oli, Ink$b_lnkftyp (r7) ; type precedence goes to LNK$C_OLI. 
FF9 1 186 6 65$: brw 10$ ; Get the next entity. 37 
0183388 te 
O183 SP + /SHAREABLE Shareable Image 3 
01 A7 95 0183 4 708: tstb ink$b_lnktyp (r7) 3; Check for conflicting qualifiers. ? 
49 12 0186 3¢ bneq 1108 ; We have a conflict. 7¢ 
01 A7 04 90 0188 39 movb #lnk$c_sha, Llnk$b_lnktyp (r7) ; Lnk$c_sha - Shareable Image 44 
FF87 «31 «-018C = 394 brw 10$ ; Get the next entity. 88 
ae ; 
O18F 9 ; / INCLUDE Object Library with Include List a 
01 a7 «(95 «(018F ~«=—_- 399: Bos: tstb Lnk$b_lnktyp (r7) ; Check for conflicting qualifiers. FD 
06 13 0192 400 beql 82$ 3 None speci fie '‘ B1 
00 O1A? 91 O18 401 cmpb ink$b_lnktyp (r7), #lnk$c_olb ; If /LIBRARY was specified, no conf 1D 
37 12 «0198 08 bneq 110$ ; but anything else will conflict. B1 
01 A? O02 90 O19A 403 82S: movb #ink$c_oli, Lnk$b_lnktyp (r7)  ; Lnk$c_oli = Object Library with an FC 
00 6 01 €E2 OQ19E 404 bbss #1, (sp), .+ : Indicate /INCLUDE has been specifi 1F 
04 6€ 00 €1 OQ1A2 405 bbc #0, (sp), 83$ : If /LIBRARY has been specified, th 16 
02 A? 02 88 O1A6 8406 bisb #ink$m_libsrch, Unk$w flags (r7): the Library should be searched. | FD 
SA 91 O1AA 407 838: cmpb r10, #*A/=/ 3; The next character should be an ‘'= 31 
22 12 OAD 408 bneq 1108 : If not, its a syntax error. ‘ 1¢ 
O00001D4"EF 00 FB OQIAF 409 calls #0, get_incl_list ; Get the module name(s) in the incl 1A 
18 50 34 0186 410 Lbc r0 Ios ; Issue syntax error. 18 
FFSA 1 p89 it 85$: brw 10$ ; Cet the next entity. Fe 
01BC «413 ; 1D 
Biee ret 3; /SELECTIVE SEARCH Selective search of OLB or STB ‘ 
01 A? 95 O1BC $1§ $0s: tstb Lnk$3_lnktyp (r7) ; Check for conflicting qualifiers. 1A 
10 3 1BF 41 bneq 110$ : We have a conflict. FD 
02 a7 O01 8 oiC} 213 bisb #lnk$m_selser, lnk$w_ flags (r7) ; lnk$v_selser - Selective search OF 
01 A? 03) 90 O1C5 419 958: movb @lnk$c_obj, lnk$b_lnktyp (r7) 3; Lnk$c"obj - Object Module 1E 
FF4A 31 O1C9 459 brw 10$ ; Get the next entity. 0 
gee 2s 
ate ? § : ALL done select status and return. 4 
50 01 D0 O1CC 425 1008: movi #1, r0 ; Success. FD 
08 11 O1CF 4 § brb 126s 3; Now return. $ 
D4 O11 427 1108: clrl r ; Error. . 
04 0103 428 120$: ret ; Restore registers and return. 0 
01D4 429 
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Functional Description: 


AX/VMS Macro V04-00 Page 3 
MACRO.SRCJLINK.MAR; 1 (7) 


Get the module(s) in the List 


This routine scans the include list and produces a Linked List 
containing the counted ascii strings of the module name(s) entered 
in the include List. 


Implicit Inputs: 


The address of the Linker record. 
The address of the module name include List head. 


ory get_incl_list “m<> 


-4(sp), sp 
(sp) 
“mac$getchr 


“mac$skipsp 
> wer 


#0, (sp), .+1 
g*mac$symscnup 


ru, 
#0, insert_module 
208 


#1, (sp), 808 
g*mac$getchr 


$ 


Sete Sete te 


The address of a symbol just scanned. 


— names obtained from the include list are added to the Linked 


Get the module names to include. 
Get LOCAL STORAGE. 
Initialize local storage. 


Get the next character. 
Skip spaces, tubs, etc.. 
End of Line? 


; Yes, syntax error. 


Do we have a List of names? 

Yes, remove open paren and indicat 
Check for module name delimiter. 
Remove the comma, and validate str 
Do we have a close paren? 

Yes, end of the List? 

End of Line? 

We're done, select return status. 
Reset comma seen flag. 

Get the module name. 

No file name, error. 

Insert this module name into the | 
Get the next module (if any). 


Check for syntax error -= 2 or mor 
Indicate a List and continue the m 


Comma seperated List not allowed o 
To many commas? 
Remove comma, step to next module 


Should we have a close paren? 

Yes, skip it for correct grammatic 
Have we got at least one module? 
No, and we don't accept null Lists 
Everything looks ok, return succes 
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1 
9 
1 
1 
F 
1 
0 
B 
2 
F 
F 
1 
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0 
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v04-000 get_incl_list Get the module(s) in the lL 5=-SEP=-1984 01:48:43 (CMACRO.SRCILINK.MAR;1 (7) 
0 
EO 0 35 iB 60$: bbs #1, (sp), 80$ ; Should we have a close paren? (pre 
dO § 3 491 70$: movl #1, r0 ; Parse successful... 
11. 0 +4 138 brb 90$ 3; return success. 
D4 8 41 494 80$: clrl r0 3; Parse failed. 
DO 0243 495 movl r8, (r8) 3; Fake an enpty queue. 
DO 0246 496 movl r8, 4(r8) ; reset the list head. 
04 024A 497 908: ret 3; Return 
0248 498 


| dD 4 
MACSLINK Link directi 16-SEP-1984 02:06: A M - 
yO%-b00 - rective processor SEP=1 06:06:07 Y X/VMS Macro V04-00 Page ! 


] 
0 1 | 
insert_module Insert module name into Li 5=-SEP-1984 MACRO.SRCJLINK.MAR; 1 8) | 
| 
rb} i a -sbttl insert module Insert module name into List | 
48 : 
rt ; Functional Descrtipion: 
" 48 03 : This routine will allocate a block of Gqnery to store the 
48 8 3 module name (counted asci string) and Link it into the List | 
0 is Be ; of other modules in the include List. 
0 4B 309 ; Implicit Inputs: 
8 48 244 : r7 adr Address of the Linker options record control block. 
8 rt} 21¢ ; r8 adr Address of the head of the include List. 
8 rt ale : mac$ab_tmpsym The buffer containing the counted asci string. 
0248 516 ; Outputs: 
0248 517 ; 
0248 518 ; The module has been added to the List. 
0248 519; 
8 rh 331 3; Side Effects: 
0348 2 § : If an error occurs while attempting to allocate dyanmic memory 
osee $7 3 we'll exit in the normal tradition (abort this assembly). 
0248 285 i-- 
027C 0248 526 entry insert_module “m<r2,r3,r4,r5,r6,r9> 
51 DD 024d 527 pushl ri ; Preserve Ri. 
56 Q0000000'GF 9E O24F 528 movab ¢_2ecteh_ tapsye, r6 ; Get the beginning address of the buffer. 
59 66 9A 0256 529 movzbl (r6), r9 3; Get the size of the string. 
59 D6 0259 530 incl r9 ; Bump the string count to include count byt 
=. we te o528 531 subl2 #8, sp ; Get STACK LOCAL storage. 
04 AE 04 O25E 236 clrl 4(sp) : Initialize the return address scalar. 
04 AE OF 850] 53 pushab 4(sp) ; Push address of the return address scalar. 
04 AE 59 O08 C1 0264 534 ddi3 #8, r9, 4(sp) ; Compute the number of bytes to allocate. 
04 AE 99F 0269 535 pushab 4(sp) ; Push the address of the number of bytes. 
00000000 ' GF 9¢ FB ps6 536 calls #2, 9° libSget va ; Allocate the module name block. 
16 5 E9 027 537 blbc r0, Ins_vir_mem ; Insufficient Vitrual Memory error. 
53 04 AE DO 0276 538 mov | 4(sp) ; Get the beginning address of the module na 
08 AS 666 —s 559 6s 027A 539 move3) 9, (r6), 8(r3) ; Copy the string. 
04 B8 04 BE f O27F 540 sneeye a4isp) » 4 (r8) ; Insert this block at the tail of the List. 
OC A?) «659 CO 0284 24] addl r9, lnk_l_bytes (r7) ; Add this string's byte count to the sum. 
51 8EDO 0288 4g popl ri ; Restore R1. 
04 ge 4 ret 
Be 848 
+3 278 : Insufficient Virtual Memory, report error and abort this assembly. | 
Bt 28 ins_vir_mem: | 
00000000'GF 00 4 ¢ 549 calls #0, g*mac$err_nomem_0 ; Report error. 
00000000'GF 1 8 33 229 jmp g*mac$last_chance ; Abort this assembly. 
| 


MACSLINK Link ective processo 
y0s-000 build ‘ l 


pesiee ort 1g-$EP-1984 02:06:27 VAX/VMS Macro 04-00 Page 
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Ce eee 


5) 


-sbttl build_lnk_rec Build a Linker options record 


ew 


This routine builds a Linker options record. First we obtain 
a linker options record block (by a call to LIBSGET_VM), next 
fill in the information and Link it into the queue of Linker 


| 

| 

Functional Description: 
| 

options records and set the ‘at least one file processed’ bit | 


wwowooooo0on0o0ono 35 
wowowowowvowovdoJo0v0wo 


in the state flags. Special pending of the object b tbrary with 
an include List is performed by copy ng the strings from the 
include module list and deallocating the module name blocks. 


nacascsqnenesoeneossaeawonsescees> 
'size of this lnk opt rec block*! * NOTE: The size field contains 
sore scones erpeter sereinegnpeiate + a value which represents 

! flags ! Lnktyp! rectyp! the total size of the 
$eeecceceocooecan $oweceon $eececcen $ block in bytes. 

: ! namlng : It includes the overhead 

' teocecocococceces + information (flink, blink, 

: file specification ; size field and the terminato 


i optional module penewnee + 
! mame from /INCLUDE=C()] List ! 


$woeeeecsescoecoeceecesoesooseco 


$eeeeeeececccccceecececcccoeceece 


: 9g H Terminator byte (module name Length 0) 
Inputs: 


4 (AP) adr Address of the filespec descriptor. 
8(AP) adr Address of the Linker record control block. 


Implicit Inputs: 


mac$gq_lnkopt adr The address of the Linker options record queue 
List head. 


Side Effects: 


If an error occurs while attempting to allocate dyanmic memory 
we'll exit in the normal tradition (abort this assembly). 
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MACSLINK Link directive processor 16-SEP-1984 02:06:27 VAX/VMS Macro Vv04-00 Page 13 
y0%~000 build_lnk_rec Build a linker options rec ets Yi 84:08:25 EMACRO. SRe LINK .MAR;1 . (10) 
O1F 99 19 sentry build_lnk_rec “m<r2,r3,r4,75,r6,r7,r8> 
53 04 AC D 98 61 movil = (ap) ; Get the address of the filespec. 
BA D oF 1 mov | 8(ap), r 3; Get Link control block address. 
5E 0 C A361 subl2 #8, sp ; Allocate STACK LOCAL storage. 
4 AE 4 A 614 irl 4(sp) : Initialize the return address scalar. 
4 as F A 615 pushab rhe ; Push the address of the return address sca 
04 AE _ 0000'C C A 618 movz dscSw_length (r2),4(sp) ; Get the Length. 
04 AE OC A? 04 ‘ C1 B 61 addl§ aie?’ ink _l_bytes(r7).4(sp) ; Compute the #bytes req for this record 
04 AE 1 co B 618 addl #ln blk_$iz, 4(sp) ; Include the fixed area size in the count. 
04 A OF B 619 pushab 4(spJ ; Address of the number of byte req. 
00000000 ° GF 9 FB C 620 calls a g_ | beget ve ; Allocate canery for this Linker options re 
ce E9 C ? 1 blbc r0, Ins _yir_mem ; Insufficient Virtual Memory error. 
53 4 a DO CA ¢ movl 4(sp), ¢ ; Get the Sogran ine address of the Linker op 
28 5 DO O2CE 6 mov l r3, ré ; Preserve the block address for Later use. 
5 08 CO O2D1 624 addi2s #8, ; Advance pointer to first data field. 
83 66 dO 8 D4 = 625 mov Cog}. (r3)+ ; Copy the number of bytes in this block. 
83 6 dO D7? «36 § movl (r7), (r3)+ ; Copy the record type and flags word to the 
83 68 BO O2DA 6 movw ie (r3)+ : gopy the file spec length. 
63 0000'D2 6 28 8 4 ? 8 move (r2),adsc$a_pointer(r2),(r3) ; Copy the file spec. 
56 04 87 OF O2E3 630 10S: remque alnk_q_inclst(r7), r6  ; Remove the next module name. 
¢6 1D O2E7? 631 bvs 208 : Is the queue empty? 
04 AE 6 dO O2E9 O36 movl r6, 4(sp) ; No, get the address of the module name 
04 AE OF O2ED 63 pushab tht ; block to release and pass it by reference. 
04 AE 08 A6 GA O2FO 634 movzbl 8(r6), 4(sp) ; Get the string Length and include 
04 AE O01 80 O2FS 635 addb #1, 4(sp) 3; the count byte in the string size. 
63 08 A6 04 AE 28 O2F9 636 move 4(sp), 8(r6), (r3) ; Copy the module size/name to the record. 
04 08 CO O2FF 637 addl2 #8, 4(sp) 3 The ne is included in the mnb size. 
4 ag 9F 0303 638 pushab 4(sp) ; Pass the block size by reference too. 
00000000'GF 0 FB 0306 639 calls #2, g*lib$free_vm ; Release the mogule name block. 
D4 i11 BaoP ent orb 10$ ; Get the next module. 
63 94 O30F og 20$: clrb (r3) : Mark include List terminator. 
56 OQ0000000'°GF 9E& 0311 64 movab q-necSaa Lnkopt, r6 ; Get the address of the Linker options queu 
4 OE 0318 644 insque (r8), a4Tr6) : Insert this record into the Linker options 
00 10 A? 00 €E2 O31C 645 bbss #0, lnk_l_states(r7),.+1 ; Set flag indicating at least 1 file proces 
04 0321 646 ret 
0322 647 
| 
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macSwrt_(nkopt Write the Linker options - 7:48:43 


SEP=1984 MACRO.SRCJLINK.MAR; 1 (11) 


$08 ~ «sbttl mac$wrt_lnkopt Write the Linker options records to object 
651 ; | 
: : Functional Description: | 
654 : This routine removes the Linker options records from the queue | 
92? : MACSGQ_LNKOPT and writes them to the object module (following the GSD). Fs 
637 > Implicit Inputs: Be 
836 : R10 adr Contains the address of the object code buffer. BC 
969 : mac$gq_lnkopt adr The address of the Linker option record queue. H+ 
066 > Side Effects: gc 
664 : ALL Linker option record(s) have been written to the object file 98 
665 ; and the currect object record buffer type will be set to OBJSC_TIR 97 
096 3 upon exit. 97 
O00 Ad 
0040 8 669 . -entry mac$wrt_lnkopt “m<r6> ; Save register(s). 33 
Se 608. OG 4 670 subl2 » $p ; Allocate STACK LOCAL storage. AE 
56 QO000000'FF OF 8 7 671 108: remque @mac$gq_lnkopt, ré ; Get a Linker option record. 81 
A 1D ore bvs 20$ ; Is the queue empty? B5 
A 07 67 decl ri0 ; No, set the buffer pointer to origin. B6 
51 08 AB OC $3 674 subl #i2, 8(r6), v1 ; Compute the size of this record. B9 
6A OC AB 51 8 675 move ri, 12¢r6), (r10) ; Copy the record to the object code buffer. 
5A 653 ° 033C 676 mov | “oy ; Update the object code pointer. 
FCBE' 30 O33F 677 bsbw mac$wrtobj ; Write the object record. 
04 AE 56 DO 0342 o78 mov l r6, 4(sp) ; Release dynamic memory... 
A SF 0346 67 pushab 4(sp) ; Pass the block's address by reference. 
04 AE 08 A6~ 00 8 49 680 movl 8(r8), 4(sp) ; The Linker option record's block size 
4 AE OF 4E red pushab sp ; is also passed by reference. 
00000000'GF 02 FB 8 1° © ¢ calls * g*lib$free_vm ; Release this block. 
oe 3 eS o37 brb 10$ ; Continue until the queue is empty. 
6A 02 90 O35A 685 20S: movb Wobj$c_tir, (r10) ; ALL done, correct the object record 
04 bgee O38 ret 3; type to assume TIR. 
O35E 688 .end ; of MODULE mac$Link 


ee 
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Symbol table , Sey 7 84:08:28 YRACRO.SRe LINK.MAR;1 ° (11) v04 
BUILD_LNK_REC 90000 99 RG 05 FLGSM_UPMARG = 4 INSYMP = 74 R 4 
CR = 0D FLGS$M_XCRF = INSYTM = 74 R 4 
DSCSA_POINTER eeeeeree x 08 FLGSV_ALLCHR = INS_VIR_MEM 8C R 5 
DSCSW_LENGTH eererere =X FLG$V—BOL p LIBSFREE_vM eereeeee x 5 
EOMSC_ ABORT = 000000 FLG$V-CHKLPND = 14 LIBSGET_OM aeeneree§ = X 05 
S$CTERROR = FLGSV~COMPEXPR = 08 CINK 9000000 RG 05 | 
EOMSC“SUCCESS = FLGS$V_CONT = LNK$B_LNKTYP == 1 
EOMSC"WARNING = 1 FLGSV_CRF = it LNK$B_RECTYP = 0 
FLGSM-ALLCHR = 00 1 FLGSV-CRSEEN = 0 LNK$C_MAXRECTYP= 00004 
FLGSM_BOL = 00000 3 FLGSV_DATRPT = 0 9 LNK$C~OBJ z 00003 
FLGSM_CHKLPND = 0010000 FLG$SV-DBGOUT = E LNK$C"OLB z $ 
FLGSM_COMPEXPR = ati FLGSV_DLIMSTR = 9 99 F LNK$C-OLI = 8 8 
FLGSM_CONT = 000 . FLGSV-ENDMCH = 5 LNK$C_SHA = 4 
FLGSM_CRF = rset FLGSV_EVALEXPR = 00 Banos NKSM_LIBSRCH = 00002 
FLGSM_CRSEEN = 00000001 FLGSV_EXPOPT = 000 LNKSM_SELSER = 00000001 
FLGSM_DATRPT = 00000010 FLGSV_EXTERR = 00030 LNK$W_FLAGS = Bho koy § 
FLGSM_DBGOUT = 00004000 FLGSV_EXTWRN == it 1 LNK_BCK SIZ = 0000001 
FLGSM_DLIMSTR = site 44 FLGSV_FIRSTLN = 00000029 LNK_L_BYTES = Hat 425 
FLGSM_ENDMCH = 00000020 FLGSV_IFSTAT = 00000017 LNK_L-STATES = 0000001 
FLGSM_EVALEXPR = 00000040 FLGSV_IIF = 00000016 K_QUALIFIERS 00000074 RG 04 
FLGSM_EXPOPT = 00000080 FLGSV_INSERT = 00000008 LNK_Q_INCLST = 00000004 
FLGSM_EXTERR = 00010000 FLG$V_IRPC = 00000010 MACSAB_TMPBUF eeeneree =X 05 
FLGSM_EXTWRN == sla'6 4444 FLGSV_LEXOP = 00000021 MACSAB_TMPSYM aeeeeeee = =6X 05 
FLGSM_FIRSTLN = 00000200 FLGSV-LSTXST = 00000009 MACSERRORPT teeeeeee XY 05 
reme-tue's" > Soebnee Henvomreet > $8808 RASSEPRRNQMER-© Ssscccee, tO 
= = 
LGSM_IN = FLG$V_MACLTB) = MAC$GQ_LNKOPT RG 
FLGEN-INEE = SOOBDOED Lee y-RAcTKG = pooooot MACSCAST CHANCE seeeeeer “x 8 
= = 
FLGSM"LEXOP = = 9000002 FLGSV-MEBLST = 0000000C MACSSKIPSP eererere X05 
FLGSM_LSTXST = 0000020 FLGSV_MOREARG = 90000060 MACS$SRC_LIST eeeeeree§ = X 05 
FLGSM_MAC2COL = 00000800 FLGSV_MOREINP = 000000 MACSSYMS CNUP eeneeeee =X = 05 
LGSM_MACL = 00000800 FLG$V-NEWPND = 3000808 MACSWRTOBJ aeeeeeee§ =X 05 
FLGSM_MACLTB = sss 4464 FLGSV_NOREF = 0000 838 MACSWRT_LNKOPT 00000322 RG 05 
LGSM_MACTXT = D4 FLGSV_NTYPEPC = at) MACS_DIRSYNX = 007D906A 
FLGSM_-MEBLST = 0000100 FLGSV_NULCHR = 000000 $ MACS-UNTERMARG = 007D922A 
FLGSATMOREARG = 00002000 FLG$V-OBJXST = 0000001 OBJ$T_EOM_ABORT= 0000000 
FLGSM_MOREINP = 90 FLGSV_OPNDCHK = 90000028 OBJ$C—EOM_E s 000000 
FLGSM_NEWPND 0000400 FLGS$V_OPRND = 00000000 JSC_EOM_ = 444 
FLGSM_NOREF BARBS 0 FLGSV_OPTVFLIDX= 0000002C JSC_EOM_WRN = 00000001 
FLOSMCNULCHR® = 00040000 FLeSviPo es = O000000E W$e-tIn = 90000008 
= = = 
FLGSM_OBJXS = FLGSV_RPTIRP = FSM-LAS = 
GSa~ T 0200000 $V-RPTI 000001C $M-LAST 00 $308 
FLGSMCOPRND = 90002000 FL eS ScAN§ = 000000F SPESYTCASTOPR = 09000005 
= = = 
FLOSMCOPTVFLIDX= 00001000 FLesv-sPecoP = 00000 22 SPESV-DPTERPY = Oop0000¢ 
FLGSM_ORDLST = 0080000 FLG$V_SPLAL = 0008 A PROCESS QUAL 0000106 RG 05 
FLGSM_P2 = 00004000 FLG$V_STO = 00 12 C$B_NAME 0 4 4 
FLGSM_RPTIRP = 1 90 FLGSV-SYM2COL = $ eA SC$8-SEG C 
FLGSM_SEQFIL = FLGSV-TOCFLG = 3 PSC$B_UNUSED o08 
” SKAN = O00 FLGSV-UPAFLG == 4 PSC$K_BLKSI 1 
FLGSM_SPECOP = 00 4 FLGSV-UPDFIL = 7 PSCS$K-NO_OPTNS = 3 OA 
FLGSM_SPLALL = 099 FLGSV_UPMARG = 00 6 PSC$L_CURLOC O00F 
iteen-tieseo. = Goposes ceReFace ume" GOGGBBGS ac os BECET-HANCcrn 88888883 
= 
FLGSM-TOCFLG = 03 0 GET-INCL-LIST D4 RG 6 PSCSM_ABS = FFFFFFF 
FLGSM_UPAFLG = 09 f INSERT_MODULE bene RG 5 PSCSM_ALIGNFLG = 90004000 
FLGSM_UPDFIL = 00000080 INSYMC s 0 PSCS$M_ALLOPTNS = OO00003FF | 
| 


; 


PSCSM_WRT 
PSC$S_ALIGNMENT 
PSCSV-ALIGNELG = 00 
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SYMSV~ 
SYMSV-RELPSECT 
SY UPR 


RSC-STO_L 
RSC~STO-LW 
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Psect synopsis -SEP-1984 01:48:43 (CMACRO.SRCJLINK.MAR;1 (11) 

besa wre nce reeeane + 

: Psect synopsis ! 

$neeenuee eecoeceece ot 
PSECT name Allocation PSECT No. Attributes 
- ABS. ( -» 00¢ Q.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
- BLANK , ( on 1 ¢ -) NOPIC USR CON REL LCL NOSHR EXE R&D WRT NOVEC BYTE 
SABSS ( 19.) ¢ ( -) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
MACSRW_DATA 000 ! ( a+ ( -) NOPIC USR CON REL LCL NOSHR NOEXE' RD WRT NOVEC BYTE 
MACSRO_DATA 8 bee D ¢ 125.) 04 ¢ 4.) NOPIC  USR REL GBL NOSHR NOEXE RD NOWRT NOVEC LONG 
MACSRO_CODE_P1 OQOOSSE (¢ 862.) 05 ¢ 5.) NOPIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC LONG 
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Phase Page faults CPU Time Elapsed Time 


Initialization 32 90:00 :00..06 00:00 .46 
Sy plotapeeny ee ee marae Re 
Symbol table sort 139 tf 0:00.82 00:00: g-10 
Pas :00:01. :00:03. 
Symbol table output 4 0: Bob 48 09:00:00:12 
Psect synopsis output Ba 0:00.0 00:00:00.0 
Cross-reference output 0 0:00:00.00 00:00:00.00 
Assembler run totals 644 00:00:10.60 00:00:41.70 


The working set Limit was 1650 pages. 

58640 bytes (115 pages) of virtual memory were used to buffer the intermediate goge. 

There were 50 pages of symbol table space allocated to hold 787 non-local and 45 local symbols. 
688 source Lines were read in Pass 1, producing 36 object records in Pass 2. 

37 pages of virtual memory were used to define 36 macros. 


Macro Library name Macros defined 


$255$DUA28: :CHACRO. .OBJ JMACRO.MLB; 1 & 
$255$DUA28: SYSLIBISTARLET. MLB; 2 4 
Tevae ‘all libraries) 10 


960 GETS were required to define 10 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:LINK/OBJ=OBJ$:LINK MSRC$:LINK/UPDATE=(ENHS:LINK)+LIB$:MACRO/LIB 
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